home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tpdb13.arc / DEMO3.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-13  |  468b  |  32 lines
  1. {$A+,B+,D-,E+,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3.  
  4. Program Demo3;
  5.  
  6. Uses Crt,TPDB;
  7.  
  8. Var
  9.     TestStr : String;
  10.     Number,Num : Real;
  11.  
  12.  
  13. begin
  14.     ClrScr;
  15.     DBOpenFile('demo3.dbf');
  16.     UCKey := True;
  17.     BuildIndex('test.ndx',1,15,Duplicates);
  18.     OpenDBIndex('test.ndx',15,Duplicates);
  19.     Find('ADAMS');
  20.     Display;
  21.     NextDBKey(1);
  22.     Display;
  23.     Find('SMITH');
  24.     Display;
  25.     NextDBKey(1);
  26.     Display;
  27.     PrevDBKey(1);
  28.     Display;
  29.     CloseDBFile;
  30.     CloseDBIndex;
  31. end.
  32.